#!/usr/bin/perl
use locale;
$type=0; #On initialise le compteur à vide
open(FILEIN,"$ARGV[0]"); 
# on ouvre le fichier qu'on va lire
open(FILEOUT, ">dicomots.txt"); 
# on ouvre le fichier dans lequel on va écrire le dictionnaire
open(FILEOUT2, ">frequencesmots.txt"); 
# on ouvre le fichier qui va servir à stocker les valeurs numériques
%dico=();
while ($l=<FILEIN>) {
    my @motsparligne=split(/[\W]/,$l);
    foreach my $mot (@motsparligne) {
	    if ($mot ne "") {
	    $dico{$mot}++;
		}
	}
}
foreach $mots ( sort keys(%dico) ) { 
#On écrit dans FILEOUT le dictionnaire des mots du texte
print FILEOUT $mots, ":", $dico{$mots}, "\n";
}
foreach $valeur (values(%dico)) {
print FILEOUT2 "$valeur\n"; 
#On écrit dans FILEOUT2 toutes les valeurs numériques
}
close(FILEIN); # on ferme le fichier en lecture
close(FILEOUT);# on ferme le fichier en sortie	
close(FILEOUT2);# on ferme le fichier en sortie